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IN THE UNITED STATES PATENT AND TRADEMAl 




OFFICE 



In re the Application of (first named inventor): 
Jonathan Cadiz, et al 



Atty. Docket No.: 



003797.017S4 



Serial No 



09/681,836 



Group Art Unit: 



2173 



Filed: 



June 8, 2001 



Examiner: 



M. Roswell 



For: 



USER INTERFACE FOR A SYSTEM 



Confirmation No.: 



2766 



AND PROCESS FOR PROVIDING 
DYNAMIC COMMUNICATION 
ACCESS AND INFORMATION 
AWARENESS IN AN INTERACTIVE 
PERIPHERAL DISPLAY 

DECLARATION UNDER 37 C.F.R. S 1.131 

U.S. Patent and Trademark Office 
Commissioner for Patents 



We, JONATHAN J. CADIZ, ANOOP GUPTA, GAVIN JANCKE, and GINA 
VENOLIA hereby declare that: 

1) We are joint inventors of the above-captioned patent application, U.S. Application 
Serial No. 09/681,836, and all subject matter claimed therein. 

2) We are presently employed by Microsoft Corporation ("Microsoft"). Microsoft is 
the assignee of the above-identified application. 

3) We were employed by Microsoft during development and reduction to practice of 
the subject matter of the claims in the above-identified patent application. 

4) Prior to November 29, 2000 ("Critical Date"), we reduced to practice the invention 
recited in at least independent claims 1 and 100 of the above-identified application. 

5) Conception and actual reduction to practice occurred prior to the Critical Date, as 
evidenced by the documents entitled "SIDESHOW.EXE" (dates redacted) a copy of 
which is attached as Exhibit A, "NEXTAPPOINTMENT.CTL" (dates redacted) a 
copy of which is attached as Exhibit C, "HelperObject.cls" (dates redacted) a copy 
of which is attached as Exhibit D, "BARKERCONTACT" (dates redacted) a copy 



Sir: 



BEST AVAILABLE COPY 
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of which is attached as Exhibit B, "PAGBARKERCONTACT" (dates redacted) a 
copy of which is attached as Exhibit E. Each of these documents was prepared 
prior to the Critical Date. 

6) We successfully executed the software of Exhibits A-E on one or more computers 
prior to the Critical Date. 

7) Execution of the software in Exhibits A-E demonstrate reduction to practice prior to 
the Critical Date. 

8) At least Exhibits A-E specifically evidence conception and reduction to practice of 
at least independent claims 1 and 100. 

9) Claim 1 recites "providing a user interface through which a user specifies each 
entity whose contact availability is to be determined." Claim 1 further recites 
"accepting contact availability data representing at least one contact method for 
each entity from at least one electronic information source." Claim 100 recites "a 
component that receives from a user a selection of at least one entity out of a 
plurality of entities whose contact availability is to be represented" and "a 
component that receives contact availability data representing at least one contact 
method for each of the selected entities from at least one electronic information 
source." 

10) Exhibit A ("SIDESHOW.EXE") implements a sidebar and instantiates the sidebar 
container and a thumbnail or widget collection on a desktop. For example, Private 
Sub Form_Load 0 defines characteristics and size of a control array ("Set 
Control Arrrayl = New ControlArray With Sidebar" - see page 1, Exhibit A). Thus, 
Exhibit A implements a sidebar and instantiates the sidebar container and a 
thumbnail or widget collection on a desktop. 

11) Exhibit B is directed to code for implementing contact/person widgets or 
thumbnails. For example, in Private Sub UserControWnitialize (), fields are 
provided (e.g., "objTicketFile.Field ("TICKET / COMMON / 
TYPEFRIENDLYNAME") - "Person" at page 12, Exhibit B). Also, Exhibit E 
provides Visual Basic implementation for thumbnail behavior configuration pages 
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for contact information. For example, Exhibit E provides for an interface through 
which a user specifies each entity whose contact availability is to be determined. 
See, e.g., "Begin VB.PropertyPage pagBarkerContactl 'Who do you want to watch 
today? Choose from among your MSN Messenger contacts the person to watch 
with this ticket'" at page 1, Exhibit E). 

12) Claim 1 further recites "dynamically determining a real-time availability status of 
each entity for each contact method," Claim 100 further recites "a component that 
determines a contact availability status of each selected entity for each contact 
method based on the received contact availability data." 

13) Exhibit C provides SDSHTCKTJSideshowTicket which provides contact applicant 
information (see, e.g., Private objNextAppointment As Outlook.Appointmentltem 
at page 2, Exhibit C). Also, Exhibit B provides Private Sub ISideshowTicket _ 
ShowDetails 0 which controls display of contact details (see page 8, Exhibit B). 

14) Claim 1 further recites "graphically representing the real-time availability status of 
each entity via a peripheral awareness display area having a persistent window 
rendered on at least one display device." Claim 100 further recites "a component 
that displays within a peripheral awareness display area the contact availabity status 
of each selected entity." 

15) Exhibit C provides for the display of contact information. For example, Exhibit C 
codes for the display of appointments (e.g., "UserControl NextAppointment" or 
"Begin VB.Label IblOveriay" at page 1, Exhibit C. Exhibit C, at pages 3 and 4, 
further codes for generating a summary view of information of interest in a viewer 
when a thumbnail is selected. For example, ISideshowTicket_ShowDetails and 
ISideshowTicketJShowToolTyp events are fired when a container detects a mouse 
condition requesting further information. A PopupStandard ToolTip is used to 
display a tooltip where each viewer may determine events for further information, 
(e.g., objNextAppointment.Display displays an Outlook window). 

16) Exhibit B provides for a graphical representation of availability status of each entity 
(see, e.g., "Attribute VB_Name = "BarkerContact" and Public MU as IMsgrUser / 
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Dim picStates (0 to 2) as New StdPicture at page 5, Exhibit B; Private Sub 
CachePhotos 0 and Private Function GetCharacterPicture() as StdPicture at page 6, 
Exhibit B). Exhibit B further contains Visual Basic code implementing contact 
thumbnail behavior, for example, a module for implementing the display of contact 
information in a thumbnail; For example, a function GetCharacterPicture (page 6, 
Exhibit B) sets a different image based on whether the other person is online or not. 
Also, Exhibit B provides for a function MO_OnUser/StateChanged (Exhibit B, page 
10) in which a call from MSN Messenger is received with a state information 
change occurs. 

17) Exhibit D ("HelperObject.cls") is directed to Visual Basic support functions for a 
module implementing the sidebar behavior and thumbnail loading. For example, 
Exhibit D codes for a sidebar area having a persistent window rendered on a display 
device. See, e.g., Exhibit D, page 7, in the function PopupStandardToolTip, a 
system call is made to SetFormTopMostAttribute (...) placing window on top of 
other windows. 

18) The attached Exhibits A-E have not been altered since they were originally 
prepared except for the redaction of references to dates. 

1 9) Each of us individually represent that we are over 1 8 years of age and of competent 
mind. 

20) All statements made of our own knowledge are true and all statements made on 
information and belief are believed to be true; and further, these statements were 
made with the knowledge that willful, false statement so made are punishable by 
fine or imprisonment or both, under 18 U.S.C. § 1001 and that such willful, false 
statements may jeopardize the validity of the above-identified application or any 
patent issuing thereon. 
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Respectfully submitted, 



JONATHAN J CADIZ 
Microsoft Corporation 



Date 




ANOOP&UPTrtr 
Microsoft Corporation 



Date 



GAVIN JANCKE 
Microsoft Corporation 



Date 



GINA VENOLIA 
Microsoft Corporation 



Date 
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Microsoft Corporation 
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Microsoft Corporation 



Date 



AUR 25 2006 17:53 De FAIRMONT R. ELIZABETH 514 2256 A 912028243001 P . 06 



Declaration Under 37 C.F.R. § 1.131 

Appended to Amendment in Reply to Office Action, of October 3, 2005 
Page 5 of S 



Respectfully submitted, 



JONATHAN J CADIZ Date 
Microsoft Corporation 



GINA VENOLI A 
Microsoft Corporation 



ANOOP GUPTA Date 
Microsoft Corporation 



GAVIN JANCK£ Date 
Microsoft Corporation 




** PAGF TOTAI F.0R** 



EXHIBIT A -SIDESHOW.EXE 

VERSION 5.00 

Object = "{88D6BBED-E04A-49D9-BDF7-069lBA3FFAFF}#1.0#0"; "SIDEBAR. OCX" 
Begin VB.Form frmsideshow 

Borderstyle = 5 'sizable Tool window 

Caption = "sideshow (Barker) Sidebar Hidden Form" 

ClientHeight = 6855 

ClientLeft = 60 

ClientTop = 300 

Clientwidth = 1080 

Icon = "frmsideshow.frx":0000 

LinkTopic = "Forml" 

MaxButton = 0 "False 

MinButton = 0 'False 

ScaleHeight = 6855 

scalewidth = 1080 

ShowinTaskbar = 0 'False 

startupPosition = 3 'windows Default 

visible = 0 'False 

Begin SBARCtl .Sidebar sidebarl 
Left = 120 

Ol eOb j ectBl ob = "f rmsi deshow . f rx" : 030a 
Top = 120 

End 

End 

Attribute VB_Name = "frmsideshow" 
Attribute VB_Global Namespace = False 
Attribute VB_creatable = False 
Attribute VB_Predeclaredid = True 
Attribute VB_Exposed = False 
Option Explicit 

Private withEvents ControlArrayl As ControlArray 
Attribute ControlArrayl. VB_varHelpiD = -1 

Private Sub Control Array LOnControl Event (ByVal Name As String, ByVal EventName As 
String, Byval Params As CTLARRAY.lEventParameters) 

if Name = "Ticketstrip" And EventName = "onupdateRequest" Then 

Sidebarl_close 

Dim obiwshshell As Object 

Set objwshshell = CreateObject("WScript . shell") 
objwshshell .Run "\\comedial\sideinst\install . vbs" , 1, False 
End If 
End Sub 

Private Sub Form_Load() 

Set ControlArrayl = New ControlArray 
with Sidebarl 
if 

GetRegistryStrinq("HKCU\Software\Microsoft\Research\Sideshow\Barker\Si debar 
Settings | Breadth*) <> "" Then 
.Breadth = 

CSng(GetRegistryString("HKCU\Software\Microsoft\Research\Sideshow\Barker\sidebar 
Settings | Breadth")) 
Else 

.Breadth = Scalex(40 +10+10, vbPixels, vbTWips) 
End if 
If 

GetRegi stryString("HKCU\Software\Microsoft\Research\Sideshow\Barker\si debar 
settings | Length") <> "" Then 
.Length = 

CSng (GetRegi st rystri ng("HKCU\Software\Mi crosof t\Research\si deshow\Barker\si debar 
Setti ngs | Length )) 
Else 

.Length = ScaleY(50 +10+10, vbPixels, vbTwips) 
End if 
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.closable = True 
select case 

GetRegi st ryst ri ng ( n HKCU\Sof tware\Mi crosof t\Research\Si deshow\Barker\Si debar 
Settings | Edge") 

Case "Left" 

.Edge = SIDEBAR_LEFT 

Case "Top" 

-Edge = SIDEBAR_TOP 

Case "Bottom" 

■ Edge = SIDE BAR^BOTTOM 

Case Else 

-Edge = SIDEBAR^RIGHT 

End Select 
.Resizable = True 
.Movable = True 
If 

GetRegi stryStrinq("HKCU\Software\Microsoft\Research\sideshow\Barker\si debar 
settings | Monitor") <> ""Then 
.Monitor = 

GetRegi stryStrinq( M HKCU\Software\Microsoft\Research\Sideshow\Barker\Si debar 
Settings (Monitor ) 
End If 

Dim 0 As Object 

Set o = .Activate("SDSHCORE.Ticketstrip") 
Control Arrayl. Add 0, "Ticketstrip" 
End with 
End Sub 

Private Sub sidebarl_Close() 

SetRegistryString "HKCU\Software\Mi crosof t\Research\sideshow\Barker\sideba 
Settings | Breadth", cstr(sidebarl. Breadth) 

SetRegistryString "HKCU\Software\Mi crosof t\Research\Sideshow\Barker\Sideba 
Settings | Length" , cstr(sidebarl. Length) 

Dim strEdge as string 

Select Case Sidebarl. Edge 

Case SIDEBAR_LEFT 

strEdge = "Left" 

Case SIDEBAR_TOP 

strEdge = "Top" 

Case SIDE BAR_BOTTOM 

strEdge = "Bottom" 
case Else 

strEdge = "Right" 
End select 

SetRegistryString "HKCU\Software\Mi crosof t\Research\Sideshow\Barker\sideba 
Setti ngs | Edge" , strEdge 

SetRegi stryst ri ng "HKCU\sof tware\Mi crosoft\Research\si deshow\Barker\si deba 
Setti ngs | Moni tor" , Si debarl . Moni tor 

unload Me 
End Sub 
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EXHIBIT B - BARKERCONTACT 



VERSION 5.00 

Object = "{831FDD16-0c5C-11d2-A9FC-0000f8754DA1}#2.0#0"; 
Begin VB.UserControl BarkerContact 



'MSCOMCTL.OCX' 



Backcolor 
Backstyle 
ClientHeight 
clientLeft 
clientTop 
Clientwidth 
ScaleHeight 
Scalewidth 
ToolboxBitmap 
windowless 
Begin vb. Timer 

Enabled 

interval 

Left 

Top 
End 

Begin MSComctlLib.imageList imageListl 



&H00FFFFFF& 

0 'Transparent 
915 
= 0 
0 

= 630 
915 
= 630 

"BarkerContact . ctx' 
-1 •True 
Timerl 

0 'False 
100 
120 
480 



:0000 



Left 
Top 

_ExtentX 
_ExtentY 
BackColor 
imagewidth 
imaqeHeight 
MaskColor 
_Version = 
BeginProperty images 
NumLi stlmages 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 

Pi cture 

Key 
EndProperty 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 

Picture 

Key 
EndProperty 
BeginProperty 



120 
120 
1005 
1005 

-2147483643 
40 
50 

16711935 
393216 

{2C247F25-8591-11D1-B16A-00C0F0283628} 
55 

Li stimagel {2C247F27-8591-11D1-B16A-00C0F0283628} 
"BarkerContact . ctx" : 0312 
"UNREAD_MAIL" 

Li stlmage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
"BarkerContact . ctx" : 06B8 

"CHARACTER_9_2" 

Li stlmage3 {2C247f27-8591-11d1-b16a-00C0f0283628} 
" Barke rcontact . ctx" : 0C0C 

"CHARACTER^Ll" 

Li stlmage4 {2C247f27-8591-11d1-B16a-00C0f0283628} 
"BarkerContact . ctx" : 100B 
"CHARACTER_L2" 

Li stimageS {2C247F27-8591-11D1-B16A-00C0F0283628} 
"BarkerContact . ctx" : 1415 

"CHARACTER_10_0" 

Li stlmage6 {2c247f27-8591-11d1-B16a-00C0f0283628} 
"BarkerContact - ctx" : 184B 

"CHARACTER_10_1" 

Li stlmage7 {2c247F27-8591-llDl-Bl6A-00c0F0283628} 
"BarkerContact . ctx" : 1D54 
" CHARACTER_10_2 " 

Li stlmage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
"BarkerContact . ctx" : 2269 

"CHARACTEKJL1_0" 



Li stimage9 {2c247f27-8591-11d1-B16a-00C0f0283628} 
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Pi cture = "Barkercontact . ctx" : 2700 

Key = "CHARACTER^lLl" 

EndProperty 

Begi nProperty Li stimagelO {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "Barkercontact . ctx" : 2B91 

Key = "CHARACTER_11_2 " 

EndProperty 

Begi nProperty Li stimagell {2C247F27-8591-11D1-B16A-00C0F0283628} 
Picture = "Barkercontact. ctx": 302c 

Key = "CHARACTER_12_0" 

EndProperty 

Begi nProperty Li stlmagel2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi ctu re = "Barkercontact . ctx" : 3403 

Key = "CHARACTER_12_1" 

EndProperty 

Begi nProperty Li stimagel3 {2C247F27-8591-11D1-B16A-0OC0FO283628} 
Pi cture = "Barkercontact . ctx" : 37DE 

Key = "CHARACTER_12_2" 

EndProperty 

Begi nProperty Listlmagel4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "Barkercontact . ctx" : 3BC3 

Key = "CHARACTER_13_0" 

EndProperty 

Begi nProperty Li stlmagelS {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "Barkercontact . ctx" : 3EDC 

Key = "CHARACTER_13_1" 

EndProperty 

Begi nProperty Li stlmagel6 {2C247F27-8591-11D1-B16A-0OCOF0283628} 
Pi cture = "Barkercontact . ctx" : 41F5 

Key = "CHARACTER_13_2" 

EndProperty 

Begi nProperty Li stimagel7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "Barkercontact . ctx" : 4519 

Key = "CHARACTER_14_0" 

EndProperty 

Begi nProperty Li stlmagel8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "Barkercontact . ctx" : 48BA 

Key = "CHARACTER_14_1" 

EndProperty 

Begi nProperty Listlmagel9 {2c247f27-8591-11d1-b16A-00C0f0283628} 
Picture = "Barkercontact .ctx" :4C54 

Key = "CHARACTER_14_2" 

EndProperty 

Begi nProperty Li stlmage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Picture = "Barkercontact .ctx" :4FF5 

Key = M CHARACTER_15_0" 

EndProperty 

Begi nProperty Li stlmage21 {2c247F27-8591-llDl-Bl6A-00C0F0283628} 
Pi cture = "Barkercontact . ctx" : 53CB 

Key = "CHARACTER_15_1" 

EndProperty 

Begi nProperty Li stimage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Picture = "Barkercontact .ctx" : 57AA 

Key = " CHARACTERS 5_2" 

EndProperty 

Begi nProperty Li stlmage23 {2c247F27-8591-llDl-Bl6A-OOCOF0283628} 
Pi cture = "Barkercontact . ctx" : 5B94 

Key = "CHARACTER_16_0" 

EndProperty 

Begi nProperty Li stlmage24 {2c247F27-8591-llDl-Bl6A-OOCOF0283628} 
Picture = "Barkercontact. ctx" : 5F56 

Key = "CHARACTER_16_1 M 

EndProperty 

Begi nProperty Listlmage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
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Pi cture = "BarkerContact . ctx" : 631A 

Key = "CHARACTER_16_2" 

EndProperty 

Begi nProperty Li stlmage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : 66EA 

Key = "CHARACTER_17_0" 

EndProperty 

Begi nProperty Listlmage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : 6C25 

Key = "CHARACTER_17_1" 

EndProperty 

Begi nProperty Li stimage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Picture = "BarkerContact. ctx" : 7164 

Key = "CHARACTER_17_2" 

EndProperty 

Begi nProperty Li stlmage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : 76AB 

Key = "CHARACTER_18_0" 

EndProperty 

Begi nProperty Li stimage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : 7B4B 

Key = "CHARACTER_18_1" 

EndProperty 

Begi nProperty Li stlmage31 {2c247F27-8591-llDl-Bl6A-00c0F0283628} 
Pi cture = "BarkerContact . ctx" : 7FF4 

Key = "CHARACTER_18_2 n 

EndProperty 

Begi nProperty Li stlmage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : 84A9 

Key = n CHARACTER_2_0 M 

EndProperty 

Begi nProperty Listlmage33 {2c247F27-8591-llDl-Bl6A-00C0F0283628} 
Pi ctu re = " Ba r ke rcontact . ctx" : 88C0 

Key = "CHARACTER_2_l n 

EndProperty 

Begi nProperty Listimage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 

Pi cture = "BarkerContact . ctx" : 8CE8 

Key = ,, CHARACTER_2_2" 

EndProperty 

Begi nProperty Listimage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = " Ba r ke rcontact . ctx" : 911B 

Key = "CHARACTER_3_0" 

EndProperty 

Begi nProperty Li stimage36 {2c247F27-8591-llDl-Bl6A-00C0F0283628} 

Pi cture = "BarkerContact . ctx" : 9587 

Key = "character^ 3_1" 

EndProperty 

Begi nProperty Li stlmage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 

Pi cture = "BarkerContact . ctx" : 99EC 

Key = "CHARACTER_3_2" 

EndProperty 

Begi nProperty Listlmage38 {2c247F27-8591-llDl-Bl6A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : 9E5D 

Key = "CHARACTER_4_0" 

EndProperty 

Begi nProperty Listimage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : A320 

Key = "CHARACTER_4_1" 

EndProperty 

Begi nProperty Li stimage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : A7DF 

Key = "CHARACTER_4_2 " 

EndProperty 

Begi nProperty Listimage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
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Pi cture = "BarkerContact . ctx" : ACAB 

Key = "CHARACTERISED" 

EndProperty 

BeginProperty Listimage42 {2c247F27-8591-llDl-Bl6A-00C0F0283628} 
Picture = "BarkerContact .ctx" : AFFl 

Key = "CHARACTER_5_1" 

EndProperty 

BeginProperty Listlmage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : B34B 

Key = "CHARACTERISE" 

EndProperty 

BeginProperty Listlmage44 {2c247F27-8S91-llDl-Bl6A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : B6B3 

Key = "CHARACTER_6_0" 

EndProperty 

BeginProperty Listimage45 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : B9FD 

Key = "CHARACTER_6_1" 

EndProperty 

BeginProperty Listlmage46 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : BD47 

Key = "CHARACTER_6_2 " 

EndProperty 

BeginProperty Listimage47 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : C09a 

Key = "CHARACTER_7_0" 

EndProperty 

Begi nproperty Li stlmage48 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi ctu re = "BarkerContact . ctx" : C4CD 

Key = "CHARACTER_7_l n 

EndProperty 

Begi nproperty Li stimage49 {2C247F27-8591-11D1-B16A-00C0FO283628} 
Pi ctu re = " Bar ke rcontact . ctx" : C8 FA 

Key = "CHARACTER_7_2" 

EndProperty 

Begi nproperty Li stlmageSO {2C247F27-8591-11D1-B16A-00COFO283628} 
Picture = "BarkerContact .ctx" :CD30 

Key = n CHARACTER_8_0 n 

EndProperty 

Begi nproperty Li stlmageSl {2C247F27-8591-11D1-B16A-00COFO283628} 
Pi cture = "BarkerContact . ctx" : D05C 

Key = n CHARACTER_8_l n 

EndProperty 

Begi nproperty Li stimage52 {2C247F27-8591-11D1-B16A-00COFO283628} 
Pi cture = "BarkerContact . ctx" : D380 

Key = " CHARACTER_8_2 " 

EndProperty 

BeginProperty Listlmage53 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi cture = "BarkerContact . ctx" : D6B1 

Key = "CHARACTER_9_0" 

EndProperty 

BeginProperty Listlmage54 {2C247F27-8591-11D1-B16A-00C0F0283628} 
Pi ctu re = "BarkerContact . ctx" : DBFl 

Key = "CHARACTER_9_1" 

EndProperty 

BeginProperty Listimage55 {2C247f27-8591-11d1-B16A-0OcOf0283628} 
Pi cture = "BarkerContact . ctx" : E13B 

Key = "CHARACTER_l_O n 

EndProperty 
EndProperty 

End 

Begin VB. Label lbl Caption 

Alignment = 1 'Right Justify 

AutoSize = -1 'True 
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Backstyle 

BeginProperty Font 
Name 
size 
Charset 
weight 
underline 
Italic 

Strikethrough 
EndProperty 
Forecolor = 
Height 
Left 

Tabindex 

Top = 

width 

wordwrap 

End 

Begin VB. image Image2 
Height 
Left 
Picture 
Top 

visible 
wi dth 

End 

Begin VB. image imagel 
Height 
Left 
Picture 
Stretch 
Top 
width 

End 



0 'Transparent 

= "Tahoma" 

= 8.25 

= 0 

= 700 

0 'False 
0 'False 
0 'False 

&H80000018& 

195 

0 

0 

600 
645 

-1 'True 



240 
0 

"BarkerContact.ctx":E534 
0 

0 'False 
240 



750 
0 

"Barkercontact . ctx" : E8CA 

-1 'True 

0 

600 



End 

Attribute VB_Name = "Barkercontact" 
Attribute VB_Global Namespace = False 
Attribute VB_Creatable = True 
Attribute VB_Predeclaredid = False 
Attribute VB_Exposed = True 
Option Explicit 

implements SDSHTCKT.lsideshowTicket 

Private withEvents obiTicketFile As SDSHCORE. Ticket File 
Attribute objTicketFile. VB_varHelpiD = -1 
Private objStandardToolTip As Object 

Public Event DblclickO 

Public Event MouseDown(Byval Button As integer, Byval Shift As integer, Byval x As 
Single, Byval Y as single) 

Public Event MouseMove(Byval Button As integer, Byval Shift As integer, Byval X as 
Single, Byval Y as single) 

Public Event Mouseup(Byval Button as integer, Byval shift As integer, Byval x As 
Single, Byval y as single) 
Public Event RequestResizeO 

Public Event Request Remove () ' Added by t-mboyle 
Public withEvents MO as Msgrobject 
Attribute MO.VB_varHelpiD = -1 

Public mu as iMsgruser 

Private Contact Form as frmcontact 

Dim pi estates (0 To 2) As New StdPicture 

Dim intMessageTimer As integer 

Dim strLastMsg as String 
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Private Sub CachePhotosO 
On Error Resume Next 

If pi estates (0) <> 0 Then 

SavePicture picStates(O) , GetBarkerUserPath(MU) & "\" & MU.LogonName & 
"_available.bmp M 

End If 

if pi estates (1) <> 0 Then 

SavePicture picstates(l) , GetBarkerliserPath(MU) & "\" & MU.LogonName & 
"_occupi ed.bmp" 
End If 

if pi estates (2) <> 0 Then 

SavePicture picStates(2) , GetBarkeruserPath(MU) & "\" & MU.LogonName & 
"_absent.bmp" 

End If 
End Sub 

Private Function GetCharacterPictureO As StdPicture 

Dim intcharacter As integer 
On Error Goto nocharacter 

Dim strcontact As String 

strcontact = MU.LogonName 

intcharacter = Clnt(GetBarkerSetting( M Default character", "-1", strcontact)) 
If intcharacter = -1 Then Goto nocharacter 
Goto gotcharacter 
nocharacter: 

intcharacter = 1 + lnt(Rnd() * 18) ' Change this to reflect the actual number of 
characters supported 

If intcharacter > 18 Then 

intcharacter = 18 
End If 

On Error Goto gotcharacter 

if strcontact <> "" Then 

saveBarkerSetting "Default character", est r (intcharacter) , strcontact 

End if 
gotcharacter: 

Set GetCharacterPicture = imageListl.Listimages("CHARACTER_" & intcharacter & 
"_" & indicizeMSTATE(MU. State)) .Picture 
End Function 

private Sub imageLDblClick() 

RaiseEvent Dbl Click 
End Sub 

Private Sub imageLMouseDown (Button As Integer, Shift As integer, X As Single, Y As 
Single) 

RaiseEvent MouseDown (Button , shift, imagel.Left + X, imagel.Top + Y) 
End Sub 

Private Sub lmagel_MouseMove (Button As integer, Shift As Integer, X As Single, Y As 
Single) 

RaiseEvent MouseMove (Button, shift, imagel.Left + X, imagel.Top + Y) 
End Sub 

Private Sub imagel_MouseUp (Button As integer, shift As integer, X As Single, Y As 
Single) 

RaiseEvent MouseUp(Button, Shift, imagel.Left + x, imagel.Top + Y) 
End Sub 

Private Sub lmage2_DblClick() 

RaiseEvent Dbl Click 
End Sub 

Private Sub image2_MouseDown (Button As integer, Shift As integer, X As Single, Y as 
Single) 
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RaiseEvent MouseDown (Button, Shift, image2.Left + X, lmage2.Top + Y) 
End Sub 

Private Sub image2_MouseMove (Button As Integer, Shift As integer, x as Single, Y As 
Single) 

RaiseEvent MouseMove(Button, Shift, image2.Left + X, image2.Top + Y) 
End Sub 

Private Sub image2_MouseUp(Button as integer, Shift As integer, X As Single, Y as 
single) 

RaiseEvent MouseUp(Button, Shift, lmage2.Left + x, image2.Top + Y) 
End Sub 



Private Property Get lsideshowTicket_BestHeight() as Single 

lsideshowTicket_BestHeight = usercontrol .Seal ex(50, vbPixels) 
End Property 

Private Property Get iSideshowTicket_Bestwidth() As single 

lSideshowTicket_Bestwidth = Usercontrol .Seal eY(40, vbPixels) 
End Property 

Private Function iSideshowTicket_HeightFromwidth(ByVal proposedwidth As Single) As 
Single 

lSideshowTicket_HeightFromwidth = 5 / 4 * proposedwidth 
End Function 

Private Sub isideshotfTicket_HideToolTip() 

Di smi ssStandardTool Ti p ob j StandardTool Ti p 

Set obj StandardTool Tip = Nothing 
End Sub 

Private Property Get lSideshowTicket_MinHeight() As Single 

iSideshowTicket_MinHeight = 3 
End Property 

Private Property Get lsideshowTicket_Minwidth() As Single 

lSideshowTicket_Minwidth = 3 
End Property 

Private Property Get lSideshowTicket_Rank() As Long 

iSideshoWTicket_Rank = 3 
1 Commented out since everyone complains 

If MU is Nothing Then 
■ isideshowTicket_Rank = 999 

Else 

iSideshoWTicket_Rank = 3 + indicizeMSTATE(MU. State) 
End if 
End Property 

Private Sub iSideshowTicket_showContextMenu() 
On Error Goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHBRKR.BarkerContact: :isideshov\rricket_ShowContextMenu" , 
Err .Description 

Exit Sub 
dostart: 

select Case PopupStandardContextMenu( M Send instant message", "Send e-mail", 
"Remove", "-", "Properties") 
Case "Send instant message" 
Contact Form. visible = True 

Contact Form . WebBrowser 1 . Document . parentwi ndow . sc roll to 0 , 999999999 
case "Send e-mail" 
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Contact Form . webBrowse rl . Document . parentwi ndow . Navi gate "mai 1 to : " & 
mu. LogonName 

Case "Remove" 

RaiseEvent RequestRemove 
Case "Properties" 

obiTi cketFi 1 e . ShowTi cketwi zard Me 
End Select 
End Sub 

Private Sub isi deshowTi cket_showDetails() 
On Error goto doStdErr 

Goto dostart 
doStdErr: 

standardEr rorReport "SDSHBRKR . Barkercontact : : isi deshowTi cket_showDetai Is", 
Err .Description 

Exit Sub 
dostart: 

If MU is Nothing Then 
Exit Sub 

End If 

ContactForm.intMessageCount = 0 
If MU. State = MSTATE_OFFLINE Then 

ContactForm . WebBrowserl . Document . parentwi ndow . Navi gate "mai 1 to : " & 
mu. LogonName 
Else 

ContactForm. visible = True 

ContactForm. WebBrowserl. Document. parentwi ndow. scrollTo 0, 999999999 
End If 
End sub 

Private Sub isi deshowTi cket_ShowToolTip() 
On Error Goto doStdErr 

Goto dostart 
doStdErr: 

StandardEr rorReport "SDSHBRKR. Barkercontact : : isi deshowTi cket_ShoWToolTi p" , 
Err .Description 

Exit Sub 
dostart: 

If MU is Nothing Then 
Exit Sub 

End If 

Dim strTip As String 

strTip = MU.FriendlyName & " is " & Textual izeMSTATE(MU. State) 
if ContactForm.intMessageCount > 0 Then 

strTip = strTip & " and last said:" & vbCrLf & vbCrLf & strLastMsg 
End if 

set objstandardToolTip = PopupStandardToolTipCstrTip, imagel. Picture) 
End Sub 

Private Property Let iSideshown"icket_TicketData(Byval rhs as Object) 

set objTi cketFi le = RHS 
End Property 

Private Property Get isi deshowTi cket_TicketData() as object 

Set isi deshowTi cket_Ti cketData = objTi cketFi le 
End Property 

Private Function isi deshowTi cket_widthFromHeight(Byval proposedHeight As single) 
Single 

isi deshowTi cket_widthFromHeight = 4 / 5 * proposedHeight 
End Function 

Private Property Get isi deshowTi cket_wizardAll Pages () As Object 
Dim col Pages As New collection 
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col Pages. Add M SDSHBRKR.pagBarkercontactl Pagel" 
col Pages. Add M SDSHBRKR.pagBarkercontact2 Page2" 
set lsideshowTicket_wizardAll Pages = col Pages 
End Property 

Private Function iSideshowTicket_wizardBackPage(ByVal CurrentPage as string) As 
string 

Select Case CurrentPage 
case "Page2" 

lsideshowTicket_wizardBackPage = "Pagel" 
Case Else 

iSideshowTicket_wizardBackPage = "" 
End Select 
End Function 

Private Property Get lsideshowTicket_wizardCanFinish() as Boolean 
lSideshoWTicket_wizardcanFinish = 

CobjTicketFile.FieldC'TICKETXCOMMONXPRIMARYURL") <> "") 

End Property 

Private Function isideshowTicket_wizardNext Page (Byval CurrentPage As String) as 
string 

Select Case CurrentPage 
case "Pagel" 

iSideshowTicket_wizardNextPage = "Page2" 
Case Else 

iSideshowTicket_wizardNextPage = "" 
End Select 
End Function 

Private Sub lSideshowTicket_wizardSetupPage (Byval PageName As String, Byval 
Pageobject as object) 

End Sub 

Private Property Get iSideshowTicket_wizardstartPage() As string 

If 0bjTicketFile.Field("TICKET\C0MM0N\PRIMARYURL") <> "" Then 
iSideshowTicket„wizardStartPage = "Page2" 

Else 

lSideshowTicket_wizardStartPage = "Pagel" 
End if 
End Property 

Private Sub MO_OnTextReceived (Byval plMSession as Messenger. iMsgrlMSessi on, Byval 
psourceuser As Messenger .iMsgruser, Byval bstrMsgHeader As String, Byval bstrMsgText 
As String, pfEnableDefault As Boolean) 
On Error Goto doStdErr 

Goto dost art 
doStdErr: 

StandardErrorReport "SDSHBRKR. Barkercontact : :MO_OnText Received" , Err. Description 
Exit Sub 
dostart : 

if Not psourceuser is MU Then 

Exit Sub 
End If 

Dim Headers As Collection 
Set Headers = ParseHeaders (bstrMsgHeader) 
if Headers("Content-Type") Like "text/plain*" Then 
If Len (bstrMsgText) > 44 Then 

strLastMsg = Mid (bstrMsgText, 1, 40) & 

Else 

strLastMsg = bstrMsgText 
End if 

If GetForegroundwindowO = contactForm.hwnd And Contact Form. windowstate = 
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vbNormal Then 

Exit Sub 
End If 

intMessageTimer = 0 

ContactForm.intMessageCount = ContactForm.intMessageCount + 1 
El self Headers("Content-Type") - "text/x-sideshow-barker-statephoto" Then 
On Error Goto endsub 

Dim S as String 

S = CStr(Headers( n x-sideshow-Barker-StatePhoto")) 

Dim L As String 

L = CStr(Headers("Location")) 

Select case s 

Case "available" 

If L <> "*" Then 

Set picStates(O) = LoadPicture(L) 

Else 

Set pi estates (0) = Nothing 
End If 
Case "occupied" 

If L <> "*" Then 

Set picstates(l) = LoadPicture(L) 

Else 

Set pi estates (1) = Nothing 
End if 
Case "absent" 

if L <> "*" Then 

Set picstates(2) = LoadPicture(L) 

Else 

Set picstates(2) = Nothing 
End if 
End Select 
CachePhotos 
' Dim A as New AlphaPicture 

A.TransparentColor = RGB(255, 0, 255) 
if pi estates (lndicizeMSTATE(MU. State)) = 0 Then 
imagel. Picture = GetCharacterPictureO 

Else 

imagel. Picture = pi estates (indici zeMSTATE (mu. State)) 
End if 

' imagel -Picture = A. Picture 

If Not ContactForm Is Nothing Then 

ContactForm.Picturel. Picture = imagel- Picture 
End if 
End If 
endsub: 
End Sub 

Private Sub MO_onuserStateChanged(Byval puser As Messenger .iMsgruser, Byval 
mprevstate As Messenger .mstate, pfEnableDefault As Boolean) 
On Error Resume Next 

If Not puser is mu Then 
Exit Sub 

End if r 
' Dim A as New AlphaPicture 

A.TransparentColor = RGB(255 f 0, 255) 
' Something wrong here... 

if pi estates (indi ci zeMSTATE (mu . State) ) = 0 Then 
imagel. Picture = GetCharacterPictureO 
lmage2. visible = True 

Else 

imagel. Picture = pi estates (indici zeMSTATE (MU. State)) 
image2. visible = False 
End if 

' imagel. Picture = A. Picture 
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If Not ContactForm Is Nothing Then 

ContactForm. Pi cturel. Picture = imagel. Picture 
End If 

If Textual izeMSTATE(mPrevstate) Like "inaccessible*" Then 

ob jTi cketFi 1 e . Fi el cI("ticket\common\datafriendlyname") = mu . Fri endl yName 
End if 

RaiseEvent RequestResize 
End sub 

Private Sub objTi cketFi le_OnFi el dchange(Byval Path as string, Byval voldvalue As 
variant, Byval vNewvalue as variant) 
Select Case Path 

Case "TICKET\COMMON\PRIMARYURL" 

Set mu = MO. Createuser (vNewvalue, MO. Services. PrimarvService) 
ob jTi cketFi 1 e . Fi el d ("ticket\common\datafriendlyname") = mu . Fri endl yName 
On Error Resume Next 

Set pi estates (0) = Nothing 
Set picStates(l) = Nothing 
Set pi estates (2) = Nothing 

Set picStates(O) = LoadPicture(GetBarkeruserPath(MU) & "\" & MU.LogonName & 
"_available.bmp") 

Set picstates(l) = LoadPicture(GetBarkerUserPath(MU) & "\" & MU.LogonName & 
"_occupi ed.bmp") 

Set picstates(2) ~ LoadPicture(GetBarkerUserPath(MU) & "\" & MU.LogonName & 
"_absent.bmp r ) 

If pi estates (lndicizeMSTATE(MU. State)) <> 0 Then 

imagel. Picture = pi estates (indicizeMSTATE(MU. state)) 

Else 

imagel. Picture = GetCharacterPictureO 
End if 

if Not ContactForm Is Nothing Then 

unload ContactForm 

set ContactForm = Nothing 
End If 

Set ContactForm = New frmcontact 
Set ContactForm. MO = MO 
Set ContactForm. MU = MU 
Load ContactForm 

ContactForm. Pi cturel. Picture = imagel. Picture 

Timerl. Enabled = True 

CachePhotos 

TransmitstatePhotos MO, mu 
RaiseEvent RequestResize 
case "ticketXcommonXdatafriendlyname" 
Dim T() As String 
T = Split (vNewvalue) 
Dim N As String 
N = "" 

Dim I as integer 

For I = LBound(T) To UBound(T) 

N = N & Mid(T(l) , 1, 1) 

Next I 

lbl Caption. caption = UCase(N) 

Case "TICKET\DISPLAY\CAPTION" 

lbl Caption. visible = CBool (vNewVal ue) 
End Select 
End Sub 

Private Sub TimerL_Timer() 

If ContactForm is Nothing Then 

Exit Sub 
End if 

if GetForegroundwindowO = ContactForm. hwnd Then 
ContactForm. intMessagecount = 0 
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End If 

if ContactForm.intMessageCount <= 0 Then 

Image2 .visible = False 

Exit Sub 
End If 

Dim intPeriod As Integer 

Select Case ContactForm.intMessageCount 

Case 1 

intPeriod =15 
Case 2 

intPeriod = 10 
case Else 

intPeriod = 5 
End Select 

Image2. visible = (intMessageTimer / intPeriod < 0.5) 
intMessageTimer - (intMessageTimer + 1) Mod intPeriod 
End Sub 

Private Sub lblCaption_Dblclick() 

RaiseEvent Dbl click 
End Sub 

Private Sub userControl_DblClick() 

RaiseEvent Dblclick 
End Sub 

Private Sub userControl_HitTest(x As Single, Y as Single, HitResult As integer) 

HitResult = 3 
End Sub 

Private Sub userControl_initialize() 
Set MO = New Messenger .MsgrObject 
Set obiTicketFile = New SDSHCORE. Ticket File 

obiTi cketFi 1 e . Fi el d( n TlCKET\COMMON\CLSiD") = "SDSHBRKR . BarkerContact" 

ob]Ti CketFi 1 e . Fi el d("TICKET\COMMON\CODEBASE M ) = 

"http : //research . mi crosof t . com/si deshow/downl oad . asp?LiB=SDSHBRKR n 

obiTicketFile. Fi el d("TlCKET\COMMON\TYPEFRiENDLYNAME M ) = " Person" 

obiTicketFile. Fi el d("TiCKET\DiSPLAY\THUMBNAiL") = "True" 

objTi cketFi le.Fi el d( n TiCKET\DiSPLAY\CAPTlON") = "True" 

modBar ke r . ini ti al i ze 

Set picStates(O) = Nothing 

Set pi estates (1) = Nothing 

Set picStates(2) = Nothing 
End Sub 

Private Sub lblCaption_MouseDown (Button As Integer, Shift As Integer, x As Single, Y 
as Single) 

RaiseEvent MouseDown (Button, shift, x + lbl Caption. Left, Y + lbl Caption. Top) 
End Sub 

Private Sub lblCaption_MouseMove(Button As Integer, Shift as integer, X As Single, Y 
As single) 

RaiseEvent MouseMove (Button, Shift, X + lbl Caption. Left, Y + lbl caption. Top) 
End Sub 

Private Sub lblCaption_Mouseup(Button As integer, Shift As integer, X As Single, Y 
as Single) 

RaiseEvent Mouseup(Button, shift, X + lbl Caption. Left, Y + lbl Caption. Top) 
End sub 

Private Sub userControl_MouseDown (Button As integer, shift as integer, x As single, 
Y As Single) 

RaiseEvent MouseDown (Button, Shift, X, Y) 
End Sub 
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Private Sub UserControl_MouseMove(Button as integer, shift as integer, x as single, 
Y as Single) 

RaiseEvent MouseMove(Button, shift, x, Y) 
End Sub 

Private Sub UserControl_MouseUp(Button as integer, Shift As integer, x as Single, Y 
As Single) 

RaiseEvent Mouseup(Button, shift, x, y) 
End Sub 

Private Sub usercontrol_Resize() 
with imagel 

.Left = ScaleLeft 

.Top = scaleTop 

.width = scalewidth 

.Height = ScaleHeight 
End with 
with Ibl Caption 

.Left = ScaleLeft 

.Top = ScaleTop 

.width = scalewidth 

.Height - ScaleHeight 
End with 
End Sub 

Private Sub userControl_Terminate() 
On Error Resume Next 
CachePhotos 

Contact Form . SaveSetti ngs 
unload contact Form 
Set ContactForm = Nothing 
End Sub 
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EXHIBIT C - NEXTAPPOINTMENT.CTL 



VERSION 5.00 

Object = ,, {83lFDDl6-OC5C-llD2-A9FC-OO0OF8754DAl}#2.0#0 n ; "MSCOMCTL.OCX 1 
Begin VB.usercontrol NextAppointment 
Backcolor = &H00FFFFFF& 

Backstyle = 0 'Transparent 

ClientHeight = 1125 
ClientLeft = 0 
ClientTop = 0 

Clientwidth = 1275 
ScaleHeight = 1125 
Scalewidth = 1275 

windowless = -1 'True 
Begin MSComctlLib.imageList imageListl 

Left = 120 

Top = 360 

_ExtentX = 1005 

_ExtentY = 1005 

Backcolor = -2147483643 

imagewidth = 32 

imageHeight = 32 

MaskColor = 12632256 

.Version = 393216 

BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
NumLi stlmages = 1 

BeginProperty Listlmagel {2c247f27-8591-11d1-b16a-00c0f0283628} 



Pi cture 
Key 
EndProperty 
EndProperty 

End 

Begin VB. Timer Timer2 
Enabled = 0 

interval = 1500 

Left = 840 

Top = 480 

End 

Begin VB. Timer Timerl 

Enabled = 0 'False 

interval = 30000 

Left = 840 

Top = 0 

End 

Begin VB. Label lbl Caption 
Alignment = 2 

AutoSize = -1 

Backstyle = 0 

BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

italic 

St riketh rough 
EndProperty 

Height = 195 

Left = 0 

Tablndex = 1 

Top = 0 

Width = 915 

wordwrap = -1 

End 

Begin VB. Label lbl overlay 

Alignment = 1 'Right 



NextAppoi ntment 
"TIMER 



False 



ctx M :0000 



'Center 

'True 
'Transparent 

"Tahoma" 
8.25 
0 

700 
0 
0 
0 



'False 
'False 
'False 



'True 



Justify 
Page 



0 'Flat 
-1 'True 
&H80000005& 
0 'Transparent 



"Tahoma" 

8.25 

0 

400 

0 'False 
0 'False 
0 'False 

&H80000018& 

195 

0 

0 

600 

0 'False 
855 

-1 'True 



Appearance 
Autosize 
Backcolor 
Backstyle 

BeginProperty Font 
Name 
Size 
charset 
weight 
underline 
italic 

Stri kethrough 
EndProperty 
Forecolor 
Height 
Left 

Tabindex 
Top 

visible 
width 
wordwrap 
End 

End 

Attribute VB_Name = "NextAppointment" 
Attribute VB_Global Namespace = False 
Attribute VB_creatable = True 
Attribute VB_Predeclaredld = False 
Attribute VB_Exposed = True 
Option Explicit 

impl ements sdshtckt . isi deshowTi cket 
Public Event DblClickO 

Public Event MouseDown( Byval Button As integer, Byval Shift As integer, Byval X As 
single, Byval y as single) 

Public Event MouseMove(Byval Button As integer, Byval shift As integer, Byval x As 
single, Byval Y as single) 

Public Event Mouseup (Byval Button As integer, Byval Shift as integer, Byval x as 
Single, Byval Y As single) 
Public Event RequestResizeO 

Public Event Reques t Remove () ' Added by t-mboyle 

Private objNamespace As Outlook. Namespace 

Private objNextAppointment As Outlook. Appointment Item 

Private blnToggle As Boolean 

Private blnAdjustedstate As Boolean 

Private intTimer As Integer 

Private strToolTipMessage as String 

Const intTimerTicksPerupdate As integer = 10 

Private objStandardToolTip As Object 

Private withEvents obiTicketFile As SDSHCORE. Ticket File 

Attribute objTicketFile.VB_varHelpiD = -1 

Private blnsnoozed As Boolean 

Private Property Get isi deshowTi cket„BestHeight() As Single 
Dim fltHeight As Single 
fltHeight = TextHeight(lbl caption. Caption) 
if Ibl Overlay .visible Then 

fltHeight = fltHeight + TextHeight(lblOverl ay. Caption) 
End if 

isi deshowTi cket_BestHeight = fltHeight 
End Property 

Private Property Get isi deshowTi cket_Bestwidth() as Single 
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Dim fltwidth as single 

fltwidth = Textwidth(lbl Caption. Caption) 

If Ibloverlay. visible And fltwidth < Textwidth(lblOverlay. Caption) Then 

fltwidth = Textwidth(lbl Over! ay. Caption) 
End If 

lSideshowTicket_Bestwidth = fltwidth 
End Property 

Private Function isideshowTicket_HeightFromWidth(ByVal proposedwidth As Single) As 
Single 

Dim fltHeight As Single 

fltHeight = SuggestHeight(lbl Caption. Caption, proposedwidth, lbl Caption. Font) 
if Ibloverlay. visible Then 

fltHeight = fltHeight + SuggestHeight(lblOverl ay. Caption, proposedwidth, 
Ibloverlay. Font) 
End If 

isi deshowTi cket_HeightFromwidth = fltHeight 
End Function 

Private Sub isi deshowTi cket_HideToolTip() 

DismissStandardToolTip objstandardToolTip 

Set objstandardToolTip = Nothing 
End sub 

Private Property Get isi deshowTi cket_MinHeight() As Single 

isi deshowTi cket_MinHeight = 0 
End Property 

Private Property Get isi deshowTi cket_Minwidth() As single 

isi deshowTi cket_Minwidth = 0 
End Property 

Private Property Get iSideshowTicket_Rank() As Long 

isi deshowTi cket_Rank= 1 
End Property 

Private Sub isi deshowTi cket_ShowContextMenu() 

Select Case PopupstandardContextMenuC'Open" , "Snooze", "Remove", "-" , 
"Properties") 
case "open" 

isi deshowTi cket_ShowDetai 1 s 
Case "Snooze" 

blnsnoozed = True 
Timer2. Enabled = False 
lbl Caption, visible = True 
If blnAdjustedState Then 

blnAdjustedState = False 
Dim MO As New Msgrobject 
if mo. Local State = mstate_busy Then 

mo. Local state = mstate_online 
End if 
End if 
Case "Remove" 

RaiseEvent RequestRemove 
Case "Properties" 

obiTi cketFi 1 e . showTi cketwi zard Me 
End Select 
End Sub 

Private Sub isi deshowTi cket_ShowDetails() 

If Not objNextAppointment is Nothing Then 
ob j NextAppoi ntment . Di spl ay 

End If 
End Sub 
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Private Sub lSideshowTicket_ShowToolTipQ 

Set objStandardToolTip = PopupStandardToolTip(strroolTipMessage, 
imageLi stl . Li stimages ("timer") . Pi cture) 
End Sub 

Private Property Let lSideshowTicket_TicketData(ByVal RHS As Object) 

set objTicketFile = RHS 
End Property 

Private Property Get isideshowTicket_TicketData() As object 

Set isideshowTicket_TicketData = objTicketFile 
End Property 

Private Function isideshowTicket_widthFromHeight(ByVa1 proposedHeight as Single) As 
Single 

Dim fltwidth As Single 

Dim S As String 

if lbl Over lay. visible Then 

S = lbl Overlay. Caption & vbCrLf & lbl Caption. Caption 

Else 

S = lbl Caption. Caption 
End if 

fltwidth = suggestwidth(s P proposedHeight, lbl Caption. Font) 
iSideshowTicket_widthFromHeight = fltwidth 
End Function 

Private Property Get isideshowTicket_wizardAll Pages () As Object 
Dim col Pages As New Collection 

col Pages . Add "sdshoutlk . pagNextAppoi ntment 1 1 Page!" 
Set isideshowTicket_wizardAll Pages = col Pages 
End Property 

Private Function isideshowTicket_wizardBackPage(ByVal CurrentPage As String) As 
String 

iSideshowTicket_wizardBackPage = "" 
End Function 

Private Property Get iSideshowTicket_wizardcanFinish() as Boolean 

iSideshowTicket_wizardCanFinish = True 
End Property 

Private Function isideshowTicket_wizardNextPage(ByVal CurrentPage As String) As 
String 

lSideshowTicket_wizardNextPage = "" 
End Function 

Private Sub iSideshowTicket_wizardSetupPage(Byval PageName As string, ByVal 
Pageobject As Object) 

End Sub 

Private Property Get iSideshowTicket_wizardStartPage() as String 

iSideshowTicket_wizardstartPage = "Pagel" 
End Property 

Private Sub lblCaption_DblClick() 

RaiseEvent Dbl Click 
End Sub 

Private Sub lblCaption_MouseDown (Button As integer, shift As integer, X as single, Y 
as Single) 

RaiseEvent MouseDown (Button, Shift, x + 1 bl Caption. Left , Y + lbl caption .Top) 
End Sub 
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Private Sub lblcaption_MouseMove (Button as integer, shift As integer, x as Single, Y 
As single) 

RaiseEvent MouseMove (Button, Shift, X + Ibl Caption. Left, Y + lbl Caption. Top) 
End Sub 

Private Sub lblCaption_Mouseup(Button As integer, Shift As integer, X As Single, Y 
As single) 

RaiseEvent MouseUp(Button, shift, x + lbl Caption. Left, Y + lbl Caption. Top) 
End Sub 

Private Sub lblOverlay_DblClick() 

RaiseEvent Dbl click 
End Sub 

Private Sub lblOverlay_MouseDown (Button as integer, Shift As integer, X as single, Y 
as single) 

RaiseEvent MouseDown (Button, Shift, X + IblOverlay .Left , Y + lbl Overlay. Top) 
End Sub 

Private Sub lblOverlay__MouseMove(Button As integer, Shift As integer, x As single, Y 
As single) 

RaiseEvent MouseMove (Button, shift, X + lbl Overlay. Left, Y + lbl Over lay. Top) 
End Sub 

private Sub lblOverlay_Mouseup(Button As integer, Shift as integer, x As Single, Y 
as Single) 

RaiseEvent Mouseup(Button, Shift, x + IblOverlay. Left, Y + lbl Over lay. Top) 
End Sub 

Private Sub objTicketFile_OnFieldChange(ByVal Path as String, ByVal vOldvalue as 
variant, Byval vNewvalue as variant) 
select Case Path 

Case n TICKET\DISPLAY\OVERLAY" 

lbl Overlay, visible = CBool (vNewvalue) 
End Select 
End Sub 

Private Sub TimerL_Timer() 
On Error goto doStdErr 

goto dostart 
doStdErr: 

StandardErrorReport "SDSHOUTLK.NextAppointment : :Timerl_Timer" , Err .Description 
Exit Sub 
dostart: 

Dim obqLastAppointment As Object 

Set ob]LastAppointment = objNextAppointment 

if intTimer = 0 Then 

Dim myAppts As Items 

Set myAppts = objNamespace.GetDefaultFolder(olFolderCalendar) .items 

myAppts. Sort "[Start]" 

myAppts. includeRecurrences = True 

Set myAppts = myAppts. Restrict ("[Start] >= 'Today' and [Start] < 'Today 
11:59 pm' M ) 

myAppts. Sort "[Start]" 
Set obiNextAppointment = myAppts. Get Fi rst 
Do while TypeName(objNextAppointment) <> "Nothing" 
if objNextAppointment. End > Now Then 

Exit Do 
End If 

Set objNextAppointment = myAppts. GetNextO 

Loop 
End if 

intTimer = (intTimer + 1) Mod intTimerTicksPerupdate 
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Dim MO As New Msgrobject 
If objNextAppointment is Nothing Then 
Timer2. Enabled = False 

strToolTipMessage = "No more appointments today." 
Ibl Caption. Caption = "No appts. 
lbl Overlay. Caption = "- -" 
if blnAdjustedState Then 

blnAdjustedState = False 

if mo. Local state = mstate_busy Then 
MO.Localstate = mstate_online 

End if 
End if 

Else 

lbl Over! ay. Caption = objNextAppointment .Location 
Dim Q As String 
Dim H As Long 
Dim m as Long 
Dim I as integer 

if objNextAppointment. Start < Now Then 
if Not blnsnoozed Then 

Timer2. Enabled = True 
End If 

Q = "You should be in this meeting:" 
lbl Caption. caption = "now!" 

if (Not blnsnoozed) And (MO.Localstate = mstate_ONLINE) Then 

MO.Localstate = mstate_busy 

blnAdjustedState = True 
End if 

Else 

If blnAdjustedState Then 

blnAdjustedState = False 

if MO.Localstate = mstate_busy Then 
MO.Localstate = mstate_online 

End if 
End if 

Timer 2. Enabled = False 
blnsnoozed = False 

M = DateDiff ("n", Now, objNextAppointment. Start) 
If M < 60 Then 

lbl Caption. Caption = "in " & M & " min" 
If M < 2 Then 

Timer2. Enabled = True 

Q = "Your next meeting starts now:" 

Else 

Q = "Your next meeting starts in " & M & " minutes:" 
I = (M + 2) \ 5 
if I < 1 Then 

1 = 1 
El self I > 12 Then 

I = 12 
End If 
End if 

Else 

H = M \ 60 

lbl Caption. Caption = "in " & H & " hr, " & (M Mod 60) & " min" 
M = M Mod 60 

Q = "Your next meeting starts in " & H & " hour" 
if H > 1 Then 

Q = Q & "S" 

End if 

If M > 1 Then 

Q = Q & " and " & M & " minutes" 

lbl Caption. Caption = "in " & H & " hr, " & M & " min" 

Else 
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lbl Caption. caption = "in " & H & " hr" 
End If 
Q = Q & ":" 
End If 
End if 

strroolTipMessage = Q & vbCrLf & vbcnf & "Start: " & 
objNextAppointment .Start & vbCrLf & "Location: " & objNextAppointment . Location & 
vbCrLf & subject: " & objNextAppointment -Subject 
End if 

RaiseEvent RequestResize 
End Sub 

Private Sub userControl_Dblclick() 

RaiseEvent Dbl click 
End sub 

Private Sub UserControl_Hi tTest(x as Single, Y As Single, HitResult As integer) 

HitResult = 3 
End Sub 

Private Sub UserControl_initializeQ 

Dim myolApp As New Out look. Application 

Set objNamespace = myOlApp.GetNamespace("MAPl") 

Set obiTi cket File = New Ticket File 

obiTi cket Fi 1 e . Fi el d ("ticket\COMMON\clsid") = "SDSHOUTLK . NextAppoi ntment " 

objTi cket Fi 1 e . Fi el d ("ticket\common\codebase") = 
" http ; //research . mi c rosof t . com/si deshow/downl oad . asp?LlB=SDSHOUTLK" 

objTicketFile.Field( ,, TiCKET\cOMM0N\TYPEFRlENDLYNAME") = "My Next Outlook 
Appointment" 

objTicketFile.Field("TiCKET\coMMON\DATAFRiENDLYNAME") = "My Next Outlook 
Appointment" 

obiTicketFile.Field("TICKET\COMMON\PRIMARYURL") = "" 

obiTicketFile.Field("TiCKET\DiSPLAY\CAPTiON") = "True" 

ObjTi cketFi le . Fi el d( n TICKET\DISPLAY\OVERLAY") = "True" 
Ti merL_Timer 
Timerl. Enabled = True 
End sub 

Private Sub Timer2_Timer() 

blnToggle = Not blnToggle 

lbl Caption. visible = BlnToggle 
End Sub 

Private Sub UserControl_MouseDown(Button As integer, shift As integer, x as Sing! 

Y as Single) 

RaiseEvent MouseDown (Button, Shift, x, Y) 
End Sub 

private Sub userControl_MouseMove(Button as integer, shift As integer, x as singl 

Y As Single) 

RaiseEvent MouseMove(Button, Shift, X, Y) 
End Sub 

Private Sub userControl_Mouseup(Button as integer, Shift As integer, x As single, 
As Single) 

RaiseEvent MouseUp(Button, Shift, x, Y) 
End sub 

Private Sub userControl_Resize() 
with lbl caption 

.Left = scaleLeft 
.Width = scalewidth 
.Top = ScaleHeight - .Height 
End with 
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with lbl overlay 

.Left = scaleLeft 
.width = scalewidth 
■Top = scaleTop 

End with 
End Sub 
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EXHIBIT D - HelperObject.cls 



VERSION 1.0 CLASS 
BEGIN 

MultiUse = -1 'True 
Persi stable = 0 'NotPersi stable 

DataBindingBehavior = 0 'vbNone 

DataSourceBehavior = 0 'vbNone 

MTSTransactionMode = 0 'NotAnMTSObject 

END 

Attribute VB_Name = "HelperObject" 
Attribute VB_Global Namespace = True 
Attribute VB_Creatable = True 
Attribute VB_Predeclaredid = False 
Attribute VB_Exposed = True 
Option Explicit 

Public Function GetRegistryString(ByVal Path As String) As String 
On Error Goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHCORE. HelperObject: :GetRegistrystring" , Err .Description 
Exit Function 
dostart: 

Dim strPathcomponentsO As String 

Dim hKeyRoot As Long 

Dim strSubKey As String 

Dim i Pathcomponents As integer 

Dim strValueName as String 

Dim hKey As Long 

Dim st rvalue As String 

Dim cchvalue As Long 

strpathcomponents = Split(Path, "\") 
Select Case strpathcomponents (0) 

Case "HKCR", "HKEY_CLASSES_ROOT M 

hKeyRoot « hkey_classes_root 

i Pathcomponents = 1 
case "hklm", "hkey_local_machine" 

hKeyRoot = hkey__local_machine 

i Pathcomponents = 1 
case "hkcu", "hkey_current_user" 

hKeyRoot = hkey_current_user 

i pathcomponents = 1 
Case Else 

hKeyROOt = HKEY_CURRENT_USER 

i Pathcomponents = 0 
End Select 
strSubKey = 
strvalueName - 

For i Pathcomponents = i Pathcomponents + LBound (strpathcomponents) To 
UBound (strpathcomponents) 

If strSubKey <> Then 

strSubKey = strSubKey & "\" 
End If 

if instr(strPathComponents(i Pathcomponents) , "I") Then 

strSubKey = strSubKey & Spli t(strPathcomponents(i pathcomponents) , 

"I") CO) 

strvalueName = Split(strPathComponents(iPathComponents) , " | n )(D 
Exit For 

Else 

strSubKey = StrSubKey & strPathComponents(i Pathcomponents) 
End if 
Next i Pathcomponents 

if RegOpenKeyEx (hKeyRoot , strSubKey, 0, KEY_READ, hKey) <> 0 Then 
GetRegistryString = "" 
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Exit Function 
End If 

st rvalue = String (4096, vbNullChar) 
cchvalue = 4095 

If RegQueryValueEx(hKey, strvalueName, 0, 0, strvalue, cchvalue) <> 0 Then 

RegCloseKey hKey 

GetRegistryString = ■ "" 

Exit Function 
End If 

RegCloseKey hKey 

GetRegistryString = Left(strvalue, mstr(strvalue, vbNullChar) - 1) 
End Function 

Public Sub SetRegistryString(Byval Path As string, Byval value As String) 
On Error goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHCORE.HelperObject : :SetRegistryString", Err .Description 
Exit Sub 
doStart: 

Dim strPathComponents() As String 

Dim hKeyRoot As Long 

Dim strsubKey As String 

Dim iPathComponents As integer 

Dim strvalueName As String 

Dim hKey As Long 

Dim strvalue As String 

Dim cchvalue As Long 

Dim 1 Disposition As Long 

strpathcomponents = Split (Path, "\") 
Select Case strPathComponents(O) 
case "hkcr" , 1 1 h k e y_c l as s e s_root 

hKeyROOt = H K E Y_C L A S S E S_ROOT 

iPathComponents = 1 
case "hklm" , m hkey_local_machine m 

hKeyROOt = H K E Y„ LOCA L_MACH I N E 

iPathComponents = 1 

Case "HKCU" , "HKEY_CURRENT_USER" 

hKeyRoot = hkey_current_user 
iPathComponents = 1 
case Else 

hKeyROOt = HKEY_CURRENT„USER 

iPathComponents = 0 
End Select 
strsubKey = nn 
strvalueName = "" 

For iPathComponents = iPathComponents + LBound(strPathComponents) To 
UBound (strpathcomponents) 

if strsubKey <> "" Then 

strsubKey = strsubKey & "\" 
End if 

if instr (strpathcomponents (iPathComponents) , "|") Then 

strsubKey = strsubKey & Split(strPathComponents(i Pathcomponents) , 

'T')(0) 

strvalueName = Spl it (strpathcomponents (i Pathcomponents) , 'T'Xl) 
Exit For 

Else 

strsubKey = strsubKey & strpathcomponents (i Pathcomponents) 
End if 
Next iPathComponents 

If RegCreateKeyEx(hKeyRoot, strsubKey, 0, vbNullChar, 0, KEY_WRITE, 0, hKey, 
lDisposition) <> 0 Then 

Err. Raise 513, , "Cannot create registry string." 
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Exit Sub 
End If 

If RegSetvalueEx(hKey, strValueName, 0, REG_SZ, value, Len (value)) <> 0 Then 
RegCloseKey hKey 

Err. Raise 513, Cannot set registry string." 
Exit Sub 
End If 

ReqCloseKey hKey 
End Sub 

Public Function EnumRegistrySubKeys(ByVal Path as String) As Object 
on Error Goto doStdErr 

Goto doStart 
doStdErr: 

StandardErrorReport "SDSHCORE . Hel perob ject : : EnumRegi strySubKeys" , 
Err .Description 

Exit Function 
doStart : 

Dim objcol As New Collection 

Set EnumRegi strySubKeys = objcol 

Dim strPatneomponentsQ As String 

Dim hKeyRoot As Long 

Dim strSubKey As String 

Dim iPathComponents As Integer 

Dim strValueName As String 

Dim hKey as Long 

Dim strName as String 

Dim cchName As Long 

Dim ft AS FILETIME 

Dim 1 Index As Long 

strPathcomponents = Split (Path, "\") 
Select Case strPathcomponents (0) 
case "hkcr" , "hkey_classes_root m 

hKeyRoot = hkey_classes_root 

iPathComponents = 1 
case "HKLM", "HKEY_LOCAL_MACHINE" 

hKeyROOt = HKEY_LOCAL_MACHINE 

iPathComponents = 1 
case "hkcu", "hkey__current_user" 

hKeyRoot = hkey_current_user 

iPathComponents = 1 
Case Else 

hKeyRoot = hkey_current_user 

iPathComponents = 0 
End Select 
strSubKey = "" 
strValueName = ,,M 

For iPathComponents = iPathComponents + LBound(strPathComponents) To 
UBound (strPathcomponents) 

If strSubKey <> "" Then 

strSubKey = strSubKey & "\" 
End if 

If mstr(strPathComponents(iPathComponents) , " | ") Then 

strSubKey = strSubKey & Split(strPathComponents(i PathComponents) , 

M l")(0) 

strValueName = spl it (strPathcomponents (i PathComponents) , "I") CD 
Exit For 

Else 

strSubKey = strSubKey & strPathcomponents Ci PathComponents) 
End if 
Next iPathComponents 

If RegopenKeyExChKeyRoot, strSubKey, 0, key_read, hKey) <> 0 Then 
Exit Function 
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End If 

1 index = 0 

Do 

strName = String(260, vbNullChar) 
cchName = 260 

If RegEnumKeyEx(hKey, 1 Index, strName, cchName, 0, vbNull String, 0, ft) <> 0 

Then 

Exit Do 
End If 

objCol.Add Left(strName, inStr(strName, vbNullChar) - 1) 
1 index = 1 index + 1 

Loop 

RegCloseKey hKey 
End Function 

Public Function EnumRegistryValues(ByVal Path as String) As object 
On Error Goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHCORE.HelperObject : :EnumRegistryva"lues", Err .Description 
Exit Function 
dostart: 

Dim objcol As New Collection 

Set EnumReqistryValues = objcol 

Dim strPathcomponentsO as string 

Dim hKeyRoot As Long 

Dim strSubKey As String 

Dim iPathcomponents As Integer 

Dim strvalueName As string 

Dim hKey As Long 

Dim strName As String 

Dim cchName As Long 

Dim ft AS FILETIME 

Dim 1 index As Long 
Dim iType As Long 

strPathComponents = Split (Path, "\") 
Select Case strPathcomponents(O) 
case "hkcr" , "hkey_classes_root m 

hKeyROOt = H K E Y_C LAS S E S_ROOT 

iPathcomponents = 1 

Case "HKLM", "HKEY_LOCAL_MACHINE" 
hKeyROOt = HKEY_LOCAL_MACHINE 

iPathcomponents = 1 
case "hkcu", "hkey_current_user" 
hKeyRoot = hkey_current_user 
iPathcomponents = 1 
Case Else 

hKeyRoot = HKEY_CURRENT_USER 
iPathcomponents = 0 
End Select 
strSubKey = 
strvalueName = 

For iPathcomponents = iPathcomponents + LBound(strPathComponents) To 
UBound (strPathComponents) 

if strSubKey <> Then 

strSubKey = strSubKey & "\" 
End If 

If lnStr(strPathComponents(iPathComponents) , "I") Then 

strSubKey = strSubKey & Split (strPathComponents (iPathcomponents) , 

M l")(0) 

strvalueName = Spli t(strPathComponents(iPathComponents) , M |")(l) 
Exit For 

Else 
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strSubKey = strSubKey & strPathComponents(iPathComponents) 
End if 
Next i Pathcomponents 

If RegOpenKeyEx(hKeyRoot, strSubKey, 0, KEY_READ, hKey) <> 0 Then 

Exit Function 
End if 
1 index = 0 
Do 

strName = String(260, vbNullChar) 
cchName = 260 

if RegEnumvalue(hKey, llndex, strName, cchName, 0, lType, vbNullString, 
<> 0 Then 

Exit Do 
End If 

if iType = REG_S2 Then 

objCol.Add Left(strName, mstr(strName, vbNullChar) - 1) 
End if 

1 index = llndex + 1 

LOOP 

RegCloseKey hKey 
End Function 

Private Function Special Folder (CSIDL as Variant) As String 
On Error Goto doStdErr 

Goto dostart 
doStdErr : 

standardEr rorReport "SDSHCORE . Hel perob j ect : : Speci al Fol der " , Er r . Descri pti on 
Exit Function 
dostart: 

Dim S As string 

S = String(261, vbNullChar) 

SHGetFolderPath 0, csidl, 0, shgfp_type_current, s 
SpecialFolder = Mid(S, 1, mstr(l, S, vbNullChar) - 1) 
End Function 

Public Function MyDocumentsFolderO As String 
On Error Resume Next 
Dim s As string 

s = special Fol der (csidl_personal) 
MkDir S 

MyDocumentsFolder = S 
End Function 

Public Function MyPicturesFolder() As String 
On Error Resume Next 
Dim s As String 

s = special Fol der (csidl_mypictures) 
MkDir S 

MyPicturesFolder = S 
End Function 

Public Function MyApplicationDataFolderC) As String 
On Error Resume Next 
Dim S As String 

S = special Fol der(csiDL^APPDATA) 
MkDir S 

MyApplicationDataFolder = s 
End Function 

Public Function MyDesktopFolderO As string 
On Error Resume Next 
Dim S As String 

s = special Fol der (CSIDL_DESKTOPDIRECTORY) 
MkDir S 
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MyDesktopFolder = s 
End Function 

Public Function MySideshowStuffFolderO As string 
On Error Resume Next 
Dim S As String 

S = MyDocumentsFolderO & "\" & "My sideshow Stuff" 
MkDir s 

MySideshowStuff Folder = S 
End Function 

Public Function MySideshowTicketsFolderO As String 
On Error Resume Next 
Dim S As String 

s = MySideshowStuffFolderO & "\" & "My sideshow Tickets" 
MkDir s 

MySideshowTicketsFolder = S 
End Function 

Public Function TemporaryFolderO as String 
On Error Goto doStdErr 

Goto dost art 
doStdErr: 

StandardErrorReport "SDSHCORE.HelperObject : :TemporaryFolder" , Err .Description 
Exit Function 
dostart : 

Dim s as String 

S = String(261, vbNullChar) 

GetTempPath S, 260 

TemporaryFolder = Mid(S, 1, instr(l, S, vbNullChar) - 1) 
End Function 

Public Function TemporaryFileName(Optional Byval Folder As String, optional Byval 
DotExtension as String) As string 
On Error goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHCORE.HelperObject: :TemporaryFileName", Err .Description 
Exit Function 
dostart: 

If isMissing(Folder) Then 

Folder = TemporaryFolderO 
End If 

Dim S As String 
S - String(261, vbNullChar) 
GetTempFiTeName Folder, M SSH", 0, S 
If isMissing(DotExtension) Then 

TemporaryFileName = Mid(S, 1, lnstr(l, S, vbNullChar) - 1) 

Else 

Dim FSO As New FileSystemObiect 

S = Mid(S, 1, instr(l, S, vbNullChar) - 1) 

TemporaryFileName = FSO.BuildPath(FSO.GetParentFolderName(S) , 

FSO.GetBaseName(S) & DotExtension) 
End If 

End Function 

Public Function SuitableTicketFileName(ByVal DataFriendlyName as string) as String 
On Error goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHCORE . Hel perobject : : Sui tabl eTi cketFi 1 eName" , 
Err .Description 

Exit Function 
dostart: 
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Dim FSO As New FileSystemObject 
Dim strFileName As String 

strFileName = FSO.BuildPath(MySideshowTicketsFolder() , DataFriendlyName & 
".ssh") 

if Not FSO. FileExists (strFileName) Then 

SuitableTicketFileName - strFileName 

Exit Function 
End If 

Dim IngNumber As Long 
For IngNumber = 2 To 1000 

strFileName = FSO.BuildPath(MySideshowTicketsFolder(), DataFriendlyName & " 
[" & IngNumber & "].ssh") 

if Not FSO.FileExists(strFileName) Then 
SuitableTicketFileName = strFileName 
Exit Function 
End if 
Next IngNumber 

SuitableTicketFileName = TemporaryFileName(MysideshowTicketsFolder() , ".ssh") 
End Function 

Public Function PopupStandardToolTip(Byval Text As string, Optional Byval icon As 
stdPicture = Nothing; As object 
On Error goto doStdErr 

Goto dostart 
dostdErr: 

StandardEr rorReport "SDSHCORE .. He! perobject : : PopupStandardToolTi p" , 
Err. Description 

Exit Function 
dostart: 

Dim frmToolTip As New f rmStandardToolTip 

frmToolTi p. Configure Text, icon 

Dim pt AS POINTAPI 

GetCursorPos pt 

Dim fltx As Single 

fltx = Screen.TwipsPerPixelx * pt.x 

Dim fltY As single 

fltY = Screen. TwipsPerPixelY * pt.Y 

Dim fltLeft As Single 

Dim flgHorDir As Long 

flgHorDir = AW_HOR_POSITIVE 

frmToolTip.flgRemovalHorDir = AW_HOR_NEGATIVE 

Dim flgVerDir As Long 

flgverDir = 0 

frmToolTi p. flgRemovalverDi r = 0 

fltLeft = fltx - Screen. TwipsPerPixelx * 15 - frmToolTi p. Width 
if fltLeft < 0 Then 

fltLeft = fltx + screen. TwipsPerPixelx * 15 

flgHorDir = AW_HOR_NEGATIVE 

frmToolTip.flgRemovalHorDir = aw_hor_positive 
End if 

Dim fltTop as Single 

fltTop = fltY - Screen. TwipsPerPixelY * 15 - frmToolTi p. Height / 2 
if fltTop < 0 Then 
fltTop = 0 

flgverDir = aw_ver_positive 

frmToolTi p. flgRemovalverDi r = aw_ver_negative 
El self Screen. Height < (fltTop + frmToolTi p. Height) Then 

fltTop = screen. Height - frmToolTi p. Height 

flgverDir = aw_ver„negative 

frmToolTi p. flgRemovalverDi r = aw_ver_positive 
End If 

frmToolTi p. Left = fltLeft 
frmToolTi p. Top = fltTop 
SetFormTopMostAttribute frmToolTip, True 
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Animatewindow f rmToolTip.hwnd, 200, flgVerDir Or flgHorDir or AW_SLIDE 
Set PopupStandardToolTip = frmToolTip 
End Function 

Public Sub DismissstandardToolTip(Byva1 StandardToolTip as Object) 
On Error Resume Next 

'Animatewindow standardToolTip.hWnd, 200, standardToolTip.flgRemovalHorDi r Or 
StandardToolTip.flgRemovalverDi r or aw_SI_ide or aw_hide 

StandardToolTip. visible = False 

unload StandardToolTip 
End Sub 

Public Function PopupStandardContextMenu(ParamArray MenultemsO) as string 
On Error Goto doStdErr 

Goto dostart 
doStdErr: 

StandardErrorReport "SDSHCORE.HelperObject : PopupStandardContextMenu", 
Err .Description 

Exit Function 
dostart: 

Dim frmContextMenu As New f rmStandardContextMenu 

Dim mnuMenultemsCO To 8) As Menu 

Set mnuMenultems (0) = frmContextMenu. mnul 

Set mnuMenultems (1) = frmContextMenu. mnu2 

Set mnuMenultems (2) = frmContextMenu. mnu3 

Set mnuMenultems (3) = frmContextMenu. mnu4 

Set mnuMenultems(4) = frmContextMenu. mnu5 

Set mnuMenultems(5) = frmContextMenu. mnu6 

Set mnuMenultems (6) = frmContextMenu. mnu7 

Set mnuMenultems (7) = f rmContextMenu.mnu8 

Set mnuMenultems (8) = frmContextMenu. mnu9 

frmContextMenu. intMenuChoice = 0 

Dim intltem As integer 

For intltem = 0 To UBound(Menuitems) - LBound(Menuitems) 
with mnuMenultems (intltem) 

if Left(Menultems(LBound(Menuitems) + intltem), 1) = "*" Then 
.Caption = Right(Menultems(LBound(Menuitems) + intltem), 
Len(Menuitems(LBound(Menultems) + intltem)) - 1) 
.Checked = True 
El self Menuitems(LBound(Menuitems) + intltem) <> "-" Then 
.Caption = Menultems(LBound(Menultems) + intltem) 
.Checked = False 

Else 

.Caption = "-" 
End If 

.visible = True 
.Enabled = True 
End with 
Next intltem 

For intltem = UBound(Menultems) + 1 To 8 
with mnuMenultems(intltem) 
.Caption = "-" 
.visible = False 
.Enabled = False 
End with 
Next intltem 

frmContextMenu . PopupMenu frmContextMenu . mnustd 
if frmContextMenu. intMenuChoice = 0 Then 
PopupStandardContextMenu = "" 

Else 

PopupStandardContextMenu = mnuMenultems (frmContextMenu. intMenuChoice - 
1) .Caption 
End If 
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Unload f rmContextMenu 
Set f rmContextMenu = Nothing 
End Function 

Public Sub StandardErrorReport(Byval Context As String, Byval Description As String) 
On Error Goto endsub 

Dim Outlook 

Dim Message 

set Outlook = CreateObject("Outlook. Application") 

Set Message = Outlook.createitem(O) 

Message . Reci pients .Add "sdsherrs" 

Message. Subject = "Sideshow (Barker) Failure Report" 

Message. HTMLBody = "<html><bodyxhl>Sideshow (Barker) 
Failure</nl><h2>Context</h2><p>" & Context & M </p><h2>Description</h2><p>" & 
Description & ,, </p></body></html> M 

Message. send 
endsub: 
End Sub 

Private Function wbk(ByRef s As String) As Boolean 

■ Replaces the first space character with vbCrLf; returns False when no more 
spaces. 

if lnstr(l, S, " ") = 0 Then 
wbk = False 

Else 

S = Replace(S, " , vbCrLf, 1, 1) 
Wbk = True 
End if 
End Function 

Public Function SuggestHeight (Byval S as String, Byval w as Single, Byval F As 
StdFont) As Single 

Dim frmTM As New f rmTextMeasurements 

frmTM.Font = F 

Do 

if frmTM.Textwidth(s) < w Then 

Exit DO 
End if 
Loop while wbk(s) 

SuggestHeight = frmTM. TextHeight(s) 
End Function 

Private Function wunbk(ByRef s As String) As Boolean 
if instr(l, s, vbCrLf) = 0 Then 
wunbk = False 

Else 

S = Replace(s, vbCrLf, " 1, 1) 
wunbk = True 
End if 
End Function 

Public Function Suggestwidth (Byval s As string, Byval H As Single, Byval F As 
StdFont) As Single 

Dim frmTM as New f rmTextMeasurements 

frmTM.Font = F 

s = Replace(s, " ", vbcrLf) 

Do 

If frmTM.TextHeight(S) < H Then 

Exit Do 
End If 
Loop while wunbk(s) 
Suggestwidth = frmTM. Textwidth(s) 
End Function 
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Public Function MillissinceLastlnputO As Long 

Dim LII AS LASTINPUTINFO 

Lli.cbsize = 8 
GetLastinputinfo LII 

MillisSinceLastlnput = GetTickCountO - LlLdwrime 
End Function 
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EXHIBIT E - PAGBARKERCONTACT 



VERSION 5.00 
Begin VB.PropertyPage 

Caption 
Messenger contacts the 

ClientHeight 

ClientLeft 

ClientTop 

Clientwidth 

PaletteMode 

ScaleHeight = 

scalewidth 

Begin VB.CommandButton 
Caption 
Height 
Left 

Tabindex 
ToolTi pText 
contact list." 
Top 
Width 

End 

Begin VB. List Box Listl 
Height 
Left 
Sorted 
Styl e 
Tabindex 
Top 
Width 

End 

Begin VB. Label Label 1 
Caption 
Height 
Left 

Tabindex 
Top 
Width 

End 
End 

Attribute VB_Name = "pagBarkerContactl" 
Attribute VB_Global Namespace = False 
Attribute VB_Creatable = True 
Attribute VB_Predeclaredld = False 
Attribute VB_Exposed = True 
Option Explicit 

Dim col LogonNames As New Collection 
Private withEvents MO As Msgrobject 
Attribute MO.VB_VarHelplD = -1 

Private sub CommandLClickO 
End Sub 



pagBarkerContactl 
"who do you want to watch today? | Choose from among your MSN 
person to watch with this ticket." 
2685 
0 
0 

5625 

0 'Halftone 
2685 
5625 

btnAdd 

"Add unlisted. . 
375 
3720 
2 

"Click this button to add someone not already on your 

2040 
1695 



1635 
1080 

-1 'True 
1 'Checkbox 
1 

240 
4335 



"Contacts: 

255 

240 

0 

240 
735 



Private sub btnAdd_Click() 
On Error Goto doStdErr 

Goto doStart 
doStdErr: 

StandardErrorReport "sdshbrkr . pagBarkerContactl: : btnAdd_Cl i ck" , Err . Descri pti on 
Exit Sub 
doStart: 

Dim MA As New Messenger .MessengerApp 
MA . LaunchAddContactui " " 
End Sub 



Private Sub Li stl_ltemcheck(ltem As integer) 
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Dim intitem as integer 

For intitem = 0 To Listl.ListCount - 1 

If intitem <> Item Then 

Li stl- Selected (intitem) = False 

End if 
Next intitem 

Dim obiTicketFile As SDSHCORE. Ticket File 
Set obiTicketFile = selectedControls(O) 

objTi ctetFi 1 e . Fi el d ("ticket\common\primaryurl") = colLogonNamesC'x" & 
Listl.List(ltem)) 

Changed = (Listl.SelCount = 0) 
End Sub 

Private Sub MO_OnListAddResul t(ByVal hr As Long, Byval MLIST As Messenger .mlist, 
Byval puser as Messenger .iMsgruser) 
On Error Goto doStdErr 

goto dost art 
dostdErr: 

StandardErrorReport "SDSHBRKR.pagBarkerContactl: :MO_OnListAddResult(hr := &h 
& " , puser := " & puser . LogonName, Err .Description 

Exit Sub 
dostart: 

If hr = 0 And MLIST = M L I ST_CONTACT Then 
On Error goto Must Add 

Dim strLogonName As String 

strLogonName = colLogonNames( ,, x M & puser . FriendlyName) 
Exit Sub 

MustAdd: 

on Error Goto dostdErr 

colLogonNames.Add puser .LogonName, "x" & puser . FriendlyName 

Listl.Additem puser. FriendlyName, 0 

Li stl. Selected (0) = True 
End if 
End Sub 

Private Sub PropertyPage_lnitialize() 
On Error Goto dostdErr 

Goto dostart 
dostdErr: 

StandardErrorReport "SDSHBRKR.pagBarkerContactl: : PropertyPage_initialize" , 
Err .Description 

Exit Sub 
dostart: 

Set MO = New Messenger. Msgrobject 

Dim mu as Messenger. IMsgruser 

For Each mu in mo . Li st (mlist„contact) 

colLogonNames.Add MU. LogonName, "x" & MU. FriendlyName 

Listl.Additem mu. FriendlyName 
Next MU 
End Sub 

Private Sub PropertyPage„SelectionChanged() 
on Error goto dostdErr 

Goto dostart 
dostdErr: 

StandardErrorReport "SDSHBRKR.pagBarkerContactl: : PropertyPage_SelectionChanged" 
Err .Description 

Exit Sub 
dostart: 

Dim obiTicketFile As SDSHCORE. Ticket File 
Set objTicketFile = SelectedControls(O) 
Dim varLogon as variant 
Dim strLogon As String 
Dim intindex As integer 
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intlndex = 0 

If 0bjTicketFile.Field("TICKET\C0MM0N\PRIMARYURL") <> "" Then 
For intlndex = 0 To Listl.ListCount - 1 

If colLoqonNamesC'x" & Listl.List(intindex)) = 
objTi cket Fi 1 e . Fi el d ( ticket\common\primaryurl") Then 
Listl.Selected(intindex) = True 
Changed = False 
Exit Sub 
End if 
Next intlndex 

1 If the person named in the ticket isn't in the contact list, then 
Dim MA As New MessengerApp 

ma . LaunchAddContactui ob jTi cketFi 1 e . Fi el d( n TiCKET\C0MM0N\PRiMARYURL") 
End If 

Changed = True 
End Sub 
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VERSION 5.00 

Begin VB. PropertyPage pagBarkerContact2 

Caption - "how do you want this ticket to appear? | Choose how you want 

this ticket to appear on your sidebar." 
ClientHeight = 2685 
ClientLeft = 0 

ClientTop = 0 

Clientwidth = 5625 
Pal etteMode = 0 ' Hal f tone 
ScaleHeight = 2685 
Scalewidth = 5625 

Begin VB.CheckBox chkcaption 

Caption = Show contact's initials" 

Height = 255 

Left = 480 

Tabindex = 0 

Top =240 

Width = 1935 

End 

End 

Attribute VB_Name = "pagBarkerContact2" 
Attribute VB_Global Namespace = False 
Attribute VB_Creatable = True 
Attribute VB_Predeclaredid = False 
Attribute VB_Exposed = True 
Option Explicit 

Private Sub chkcaption_Click() 

Dim obqTicketFile As Ticket File 

Set obiTicketFile = SelectedControls(O) 

obiTi cicetFi 1 e . Fi el d ("ticketXdisplayXcaption") = est r (chkcaption. value = 
vbchecked) 
End Sub 

Private Sub PropertyPage_SelectionChanged() 
Dim objTicketFile as Ticket File 
Set objTicketFile = SelectedControls(O) 

chkcaption. value = Switch (CBool (objTi cket File. Field ( m ticket\display\caption m )) , 
vbchecked, True, vbunchecked) 
End Sub 
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